home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / AnimationStak.cpt / DragTracer / card_2961.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  332 lines
  1. -- card: 2961 from stack: in
  2. -- bmap block id: 2163
  3. -- flags: 0000
  4. -- background id: 2775
  5. -- name: Intro
  6. ----- HyperTalk script -----
  7. on hideCredits
  8.   hide card button "I read this."
  9.   hide card button "Philosophy"
  10.   hide card field "message"
  11.   hide card button "Trap Mouse"
  12. end hideCredits
  13.  
  14. on closeCard
  15.   push card
  16. end closeCard
  17.  
  18.  
  19. -- part 3 (button)
  20. -- low flags: 00
  21. -- high flags: A004
  22. -- rect: left=354 top=256 right=281 bottom=413
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: Dragger
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   visual venetian blinds to black
  34.   go to stack "DragTracer"
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 5 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=109 top=122 right=142 bottom=343
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: info
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   show card button "Trap Mouse"
  54.   show card field "info"
  55.   show card button "ok"
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 6 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=109 top=171 right=191 bottom=409
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: example
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   visual venetian blinds to black
  75.   go to card "Example"
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 4 (field)
  81. -- low flags: 00
  82. -- high flags: 2004
  83. -- rect: left=71 top=117 right=245 bottom=464
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Info
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   hide card button "ok"
  95.   hide card field "Info"
  96.   hide card button "Trap Mouse"
  97. end mouseUp
  98.  
  99.  
  100. -- part 7 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=109 top=147 right=167 bottom=445
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: message
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   show card button "Trap Mouse"
  115.   show card field "message"
  116.   show card button "I read this."
  117.   show card button "Philosophy"
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 8 (button)
  123. -- low flags: 00
  124. -- high flags: 0000
  125. -- rect: left=109 top=204 right=224 bottom=445
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: use it
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   visual venetian blinds to black
  137.   go to card "Drag Screen"
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 14 (button)
  143. -- low flags: 00
  144. -- high flags: 0000
  145. -- rect: left=105 top=118 right=227 bottom=448
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Trap Mouse
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   send mouseUp to this card
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 9 (field)
  162. -- low flags: 81
  163. -- high flags: 2004
  164. -- rect: left=43 top=32 right=304 bottom=467
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 3
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: message
  173. ----- HyperTalk script -----
  174. on mouseup
  175.   hideCredits
  176. end mouseup
  177.  
  178.  
  179. -- part 10 (button)
  180. -- low flags: 80
  181. -- high flags: A004
  182. -- rect: left=369 top=231 right=259 bottom=459
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: I read this.
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   hideCredits
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 11 (button)
  199. -- low flags: 00
  200. -- high flags: A004
  201. -- rect: left=419 top=220 right=239 bottom=454
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: OK
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   hide card button "ok"
  213.   hide card field "Info"
  214.   hide card button "Trap Mouse"
  215. end mouseUp
  216.  
  217.  
  218.  
  219. -- part 16 (button)
  220. -- low flags: 80
  221. -- high flags: A004
  222. -- rect: left=49 top=232 right=260 bottom=139
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 1
  226. -- font id: 0
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: Philosophy
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   show card field "more info"
  234.   show card button "Yeah, maybe"
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 15 (field)
  240. -- low flags: 81
  241. -- high flags: 2004
  242. -- rect: left=44 top=33 right=305 bottom=467
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: more info
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   hide card button "Yeah, maybe"
  254.   hide card field "more info"
  255. end mouseUp
  256.  
  257.  
  258. -- part 18 (button)
  259. -- low flags: 00
  260. -- high flags: 2000
  261. -- rect: left=49 top=49 right=75 bottom=454
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: say hi
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   speak "Welcome to drag tracer."
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 17 (button)
  278. -- low flags: 80
  279. -- high flags: A004
  280. -- rect: left=189 top=265 right=288 bottom=309
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Yeah, maybe
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   hide card button "Yeah, maybe"
  292.   hide card field "more info"
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part contents for card part 4
  298. ----- text -----
  299.    This stack can be utilized to create a field containing the horizontal and vertical coordinates of a path that you trace on the screen.  The coordinates are stored in the form ; 
  300.                         Drag from x1,y1  to  x2,y2
  301.                         Drag from x2,y2  to  x3,y3  (etc...)
  302.    These commands can then be pasted into a script, and may be used to create animation or other special effects.
  303.  
  304.  
  305.  
  306.  
  307. -- part contents for card part 9
  308. ----- text -----
  309.                DragTracer version 1.0, September 27th, 1987
  310.  
  311.              This stackware was created out of necessity by:
  312.  
  313.                            _____Paul A. Leonard______
  314.  
  315.    Feel free to pass this around.  Distribute it to any on line services that you know of, but please leave all notices intact.
  316.  
  317.    Hopefully you will feel a compelling, Mac-fanatic type need to compensate me for my efforts.  In that case, I can be reached at;
  318.  
  319.                                       3829 Lees Ave
  320.                                 Long Beach, CA 90808
  321.  
  322.     I welcome any comments you may have regarding this stack.
  323.  
  324.  
  325. -- part contents for card part 15
  326. ----- text -----
  327.            
  328.              DragTracer version 1.0, September 27th, 1987
  329.  
  330.     I believe it is alright for a stackware author (herein referred to as a stacker) to request a shareware fee for stackware that has taken some effort, but I do not feel it is proper to protect or restrict the user level.
  331.  
  332.    The scripts of a stack should be available for all to see, so that other stackers might advance their own stacks with any useful methods they may find, or may comment on a script to an author to suggest improvements.  One should also have access to scripts so that they can customize an existing stack to better suit their needs.